home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / scroll down (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  590b  |  20 lines
  1. 100 rem* c-64 scroll down *
  2. 110 s=49152: rem start address (relocatable)
  3. 120 for i=s to s+33: read a: poke i,a: next
  4. 130 print"** scroll down - syntax:"
  5. 140 print"sys"s",n,topline"
  6. 150 print" [215]here 'n' = number of lines to scroll"
  7. 160 :
  8. 170 if s=49152 then end
  9. 180 u=s+22: ju=s+7: r=s+34: jr=s+4
  10. 190 jj=s+18
  11. 200 poke ju+1,u/256: poke ju,u-256*peek(ju+1)
  12. 210 poke jj+1,r/256: poke jj,r-256*peek(jj+1)
  13. 220 poke jr+1,r/256: poke jr,r-256*peek(jr+1)
  14. 230 :
  15. 240 data  32, 241, 183, 142,  34, 192,  32,  22
  16. 250 data 192,  32, 241, 183, 134, 214,  32, 101
  17. 260 data 233, 206,  34, 192, 208, 248, 162,  24
  18. 270 data 181, 217,   9, 128, 149, 217, 202, 208
  19. 280 data 247,  96
  20.